home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / LCAC.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  3.0 KB  |  39 lines
  1.  
  2. *                                                                               
  3. *LOAD CONSTANT TO AC                                                            
  4. *      LCAC A            LOAD CONSTANT A                                        
  5. *      LCAC A,B          LOAD CONSTANT A, SHIFTED B, USE TEMP XR0               
  6. *      LCAC A,B,T        LOAD CONSTANT A, SHIFTED B, USE TEMP T                 
  7. *                                                                               
  8. LCAC   $MACRO  A,B,T                                                            
  9.        $IF  A.SA&$REL                                                           
  10.        CALL LDAC$        LOAD AC WITH:                                          
  11.        REF  LDAC$                                                               
  12.        DATA :A:               :A:                                               
  13.        $ELSE                                                                    
  14.        $IF  A.SA&$UNDF                                                          
  15.        $VAR L,Q                                                                 
  16.        $ASG '$$LAB' TO L.S                                                      
  17.        $ASG L.SV+1 TO L.SV                                                      
  18. V$:L.SV: EQU :A:                                                                
  19.        $ASG 'V$' TO Q.S                                                         
  20.        $ASG :Q.S::L.SV: TO A.S                                                  
  21.        $ENDIF                                                                   
  22.        $IF  (A.SV<256)&(A.SV>-1)                                                
  23.        LACK :A:          LOAD AC WITH :A:                                       
  24.        $ELSE                                                                    
  25.        CALL LDAC$        LOAD AC WITH:                                          
  26.        REF  LDAC$                                                               
  27.        DATA :A:               :A:                                               
  28.        $ENDIF                                                                   
  29.        $ENDIF                                                                   
  30.        $IF  B.L#=0                                                              
  31.        $IF  (B.V>0)                                                             
  32.        $IF  T.L=0        XR0 AS TEMP                                            
  33.        $ASG 'XR0' TO T.S                                                        
  34.        $ENDIF                                                                   
  35.        SACL :T:,0        STORE UNSHIFTED CONSTANT                               
  36.        LAC  :T:,:B:      LOAD SHIFTED                                           
  37.        $ENDIF                                                                   
  38.        $ENDIF                                                                   
  39.        $END